home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Requester.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  4.8 KB  |  124 lines
  1. pTempVar <- <primitive 110 21 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r51 16r21 16rFA 16r02 16rB9 16rF2 16r21 16r6C 16r20 16rF3 16rF5 \
  4.        ] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " remove " \
  8.   #( #[ 16r50 16r1C 16rFA 16r02 16rB9 16rF2 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " setReqBitMap: " \
  12.   #( #[ 16r53 16r30 16r21 16r1C 16rFA 16r04 16rB9 16rF2 16r21 16r6B 16rF5 \
  13.        ] \
  14.     #( 11  )) >
  15.  
  16. <primitive 112 pTempVar 4  " getReqBitMap " \
  17.   #( #[ 16r52 16r30 16r1C 16rFA 16r03 16rB9 16rF1 16r6B 16rF3 16rF5] \
  18.     #( 11  )) >
  19.  
  20. <primitive 112 pTempVar 5  " setReqGadget: " \
  21.   #( #[ 16r53 16r59 16r21 16r1C 16rFA 16r04 16rB9 16rF2 16r21 16r69 16rF5 \
  22.        ] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " getReqGadget " \
  26.   #( #[ 16r52 16r59 16r1C 16rFA 16r03 16rB9 16rF1 16r69 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 7  " setReqBorder: " \
  30.   #( #[ 16r53 16r30 16r21 16r1C 16rFA 16r04 16rB9 16rF2 16r21 16r6A 16rF5 \
  31.        ] \
  32.     #( 10  )) >
  33.  
  34. <primitive 112 pTempVar 8  " getReqBorder " \
  35.   #( #[ 16r52 16r30 16r1C 16rFA 16r03 16rB9 16rF1 16r6A 16rF3 16rF5] \
  36.     #( 10  )) >
  37.  
  38. <primitive 112 pTempVar 9  " setReqText: " \
  39.   #( #[ 16r53 16r58 16r21 16r1C 16rFA 16r04 16rB9 16rF2 16r21 16r68 16rF5 \
  40.        ] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " getReqText " \
  44.   #( #[ 16r52 16r58 16r1C 16rFA 16r03 16rB9 16rF1 16r68 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 11  " setBackFill: " \
  48.   #( #[ 16r53 16r57 16r21 16r1C 16rFA 16r04 16rB9 16rF2 16r21 16r67 16rF5 \
  49.        ] \
  50.     #(  )) >
  51.  
  52. <primitive 112 pTempVar 12  " getBackFill " \
  53.   #( #[ 16r52 16r57 16r1C 16rFA 16r03 16rB9 16rF1 16r67 16rF3 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 13  " setFlags: " \
  57.   #( #[ 16r53 16r56 16r21 16r1C 16rFA 16r04 16rB9 16rF2 16r21 16r66 16rF5 \
  58.        ] \
  59.     #(  )) >
  60.  
  61. <primitive 112 pTempVar 14  " getFlags " \
  62.   #( #[ 16r52 16r56 16r1C 16rFA 16r03 16rB9 16rF1 16r66 16rF3 16rF5] \
  63.     #(  )) >
  64.  
  65. <primitive 112 pTempVar 15  " setRelativePoint: " \
  66.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r54 16r22 \
  67.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r55 16r23 16r1C 16rFA \
  68.         16r04 16rB9 16rF2 16r22 16r64 16r23 16r65 16rF5] \
  69.     #(  )) >
  70.  
  71. <primitive 112 pTempVar 16  " getRelativePoint " \
  72.   #( #[ 16r52 16r54 16r1C 16rFA 16r03 16rB9 16r64 16r52 16r55 16r1C 16rFA \
  73.         16r03 16rB9 16r65 16r14 16r15 16r81 16r00 16rF3 16rF5] \
  74.     #( #@  )) >
  75.  
  76. <primitive 112 pTempVar 17  " setReqSize: " \
  77.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r22 \
  78.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r53 16r23 16r1C 16rFA \
  79.         16r04 16rB9 16rF2 16r22 16r62 16r23 16r63 16rF5] \
  80.     #(  )) >
  81.  
  82. <primitive 112 pTempVar 18  " getReqSize " \
  83.   #( #[ 16r52 16r52 16r1C 16rFA 16r03 16rB9 16r62 16r52 16r53 16r1C 16rFA \
  84.         16r03 16rB9 16r63 16r12 16r13 16r81 16r00 16rF3 16rF5] \
  85.     #( #@  )) >
  86.  
  87. <primitive 112 pTempVar 19  " setStartPoint: " \
  88.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r22 \
  89.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r51 16r23 16r1C 16rFA \
  90.         16r04 16rB9 16rF2 16r22 16r60 16r23 16r61 16rF5] \
  91.     #(  )) >
  92.  
  93. <primitive 112 pTempVar 20  " getStartPoint " \
  94.   #( #[ 16r52 16r50 16r1C 16rFA 16r03 16rB9 16r60 16r52 16r51 16r1C 16rFA \
  95.         16r03 16rB9 16r61 16r10 16r11 16r81 16r00 16rF3 16rF5] \
  96.     #( #@  )) >
  97.  
  98. <primitive 112 pTempVar 21  " initialize: " \
  99.   #( #[ 16r51 16r1C 16rFA 16r02 16rB9 16rF2 16r53 16r50 16r21 16r51 16rB1 \
  100.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r51 16r21 16r52 16rB1 \
  101.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r52 16r21 16r53 16rB1 \
  102.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r53 16r21 16r54 16rB1 \
  103.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r54 16r21 16r55 16rB1 \
  104.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r55 16r21 16r56 16rB1 \
  105.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r59 16r21 16r57 16rB1 \
  106.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r30 16r21 16r58 16rB1 \
  107.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r58 16r21 16r59 16rB1 \
  108.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r56 16r21 16r30 16rB1 \
  109.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r57 16r21 16r31 16rB1 \
  110.         16r1C 16rFA 16r04 16rB9 16rF2 16r53 16r31 16r21 16r32 16rB1 \
  111.         16r1C 16rFA 16r04 16rB9 16rF2 16rF5] \
  112.     #( 10 11 12  )) >
  113.  
  114. <primitive 98 #Requester \
  115.   <primitive 97 #Requester #Glyph #AmigaTalk:Intuition/Requester.st \
  116.    #(  #leftEdge #topEdge #width #height #relLeft #relTop #flags #backFill #reqText \
  117.         #reqBorder #imageBMap #requesterName ) \
  118.    #( #new: #remove #setReqBitMap: #getReqBitMap #setReqGadget: #getReqGadget  \
  119.        #setReqBorder: #getReqBorder #setReqText: #getReqText #setBackFill: #getBackFill #setFlags:  \
  120.        #getFlags #setRelativePoint: #getRelativePoint #setReqSize: #getReqSize #setStartPoint:  \
  121.        #getStartPoint #initialize:  ) \
  122.   pTempVar 4 5 >>
  123.  
  124.